home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / memdump828.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  53 lines
  1. 1 POKE53272,23:POKE53281,12:PRINT"[144]":POKE53280,12
  2. 2 FORI=828TO960:READA:SUM=SUM+A:POKEI,A:NEXT
  3. 3 IFSUM<>13270THENPRINT"ERROR IN CHECKSUM":END
  4. 5 PRINT"         [205]EMORY [196]UMP 828
  5. 10 [153]"               BY
  6. 20 PRINT"         [205].[202].[203]OZAKIEWICZ
  7. 30 [153]"
  8. 40 PRINT"[208]RINT OUT THE [200]EXADECIMAL AND THE
  9. 50 [153]"LENOMMODORE ATN(null)LENRIGHT$RIGHT$ EQUIVALENTS OF ANY
  10. 60 PRINT"MEMORY BLOCK.
  11. 70 [153]"
  12. 80 PRINT"[208]OKE THE ADDRESS OF THE START OF THE
  13. 90 [153]"BLOCK INTO ADDRESS 3 AND 4. (null)HE START
  14. 100 PRINT"ADDRESS IS IN LOW BYTE/HI BYTE ORDER.
  15. 110 [153]"
  16. 120 PRINT"[208]O[203]E THE ADDRESS OF THE END OF THE
  17. 130 [153]"BLOCK INTO ADDRESS 5 AND 6.
  18. 140 PRINT"
  19. 150 [153]"(null)SE THE PEEKATN(null)RIGHT$LEN COMMAND (null)(null)(null)828 TO CAUSE
  20. 160 PRINT"THE MEMORY BLOCK TO BE DUMPED TO THE
  21. 170 [153]"CURRENT OUTPUT DEVICE.
  22. 180 PRINT"
  23. 190 [153]"(null)EMORY VALUES FROM 0-31 AND FROM
  24. 200 PRINT"128-159 WILL SHOW A PERIOD ('.')
  25. 210 [153]"INSTEAD OF A LENOMMODORE ATN(null)LENRIGHT$RIGHT$
  26. 220 PRINT"REPRESENTATION.
  27. 230 [153]:[153]"           (null)RESS (null)PACE PEEKARWAIT";
  28. 240 [161]A$:[139]A$[178]""[167]240
  29. 250 [128]
  30. 828 [131] 169, 13, 32, 210, 255, 165
  31. 834 [131] 6, 197, 4, 144, 10, 208
  32. 840 [131] 9, 165, 5, 197, 3, 144
  33. 846 [131] 2, 208, 1, 96, 165, 4
  34. 852 [131] 32, 169, 3, 165, 3, 32
  35. 858 [131] 169, 3, 169, 58, 32, 210
  36. 864 [131] 255, 169, 32, 32, 210, 255
  37. 870 [131] 162, 7, 160, 0, 177, 3
  38. 876 [131] 32, 169, 3, 169, 32, 32
  39. 882 [131] 210, 255, 200, 202, 16, 242
  40. 888 [131] 169, 42, 32, 210, 255, 162
  41. 894 [131] 7, 160, 0, 177, 3, 32
  42. 900 [131] 157, 3, 32, 210, 255, 200
  43. 906 [131] 202, 16, 244, 24, 169, 8
  44. 912 [131] 101, 3, 133, 3, 169, 0
  45. 918 [131] 101, 4, 133, 4, 76, 60
  46. 924 [131] 3, 72, 41, 127, 201, 32
  47. 930 [131] 104, 144, 1, 96, 169, 46
  48. 936 [131] 96, 72, 74, 74, 74, 74
  49. 942 [131] 32, 180, 3, 104, 41, 15
  50. 948 [131] 201, 10, 176, 4, 9, 48
  51. 954 [131] 208, 2, 105, 54, 76, 210
  52. 960 [131] 255
  53.